perm filename 12TSUB.F4[12T,LCS]2 blob
sn#205476 filedate 1976-03-10 generic text, type T, neo UTF8
00100 SUBROUTINE RDWRT
00200 C TO READ AND RWITE TONE-ROW LIBRARY FILE
00300 COMMON INV(12),IR(12),N(12),J(13,13),ISCAL(12),IS2(12),
00400 1 INP2(72),INP(72),NRW
00500 1,IC(6),ISQ(25,25),NAME(10),INOT(49),JA(12)
00600 15 TYPE 13
00700 ACCEPT 2,NM
00750 REREAD 7,MA
00775 IF(MA.NE.0)GO TO 20
00800 IF(NM.EQ.' ')NM='ROWS'
00900 IF(NRW.EQ.'R')GO TO 1
01000 CC IF(LOOKD(NM))GO TO 1
01100 C 'LOOKD' LOOKS FOR .DAT FILE -- 'LOOK' LOOKS FOR NO EXT.
01200 CALL OFILE(1,NM)
01300 WRITE(1,2)NAME
01400 WRITE(1,3)INP2
01500 END FILE 1
01600 RETURN
01700 2 FORMAT(10A5)
01800 3 FORMAT(72A1)
01900 5 FORMAT(1X10A5)
02100 7 FORMAT(I,10A5)
02200 8 FORMAT(I,72A1)
02250 13 FORMAT(' TYPE FILE NAME -- '$)
02300 10 FORMAT(' TYPE NUMBER -- '$)
02400 11 FORMAT(I3,') ',10A5)
02500 1 CALL IFILE(1,NM)
02800 KA=1
03300 4 READ(1,7,END=9)M,NAME
03320 TYPE 11,KA,NAME
03340 KA=KA+1
03350 READ(1,7,END=9)M,NAME
03355 C READS ROW NOTES.
03360 GO TO 4
03365 20 NM=NMX
03370 GO TO 21
03380 9 TYPE 10
03400 ACCEPT 7,MA
03700 21 IF(MA.LE.0.OR.MA.GT.KA)GO TO 15
03710 CALL IFILE(1,NM)
03720 DO 12 K=1,MA
03800 READ(1,7,END=9)MM,NAME
03848 12 READ(1,8,END=9)MM,INP2
03856 C READS SOS FILES ONLY
03864 C READS ROW NOTES.
04700 NMX=NM
05100 END
05200
05300 SUBROUTINE MSS12
05400 C TO CREATE DATA FOR MSS PROG.
05500 C THIS IS A DUMMY
05600 END